'Dieses Programm schrieb fuer Sie
     'Detlef Kornatz
     'Feuerbachstrasse 6
     'D-4300 ESSEN 1
'**************************************************************************

     SCREEN 1,640,256,4,2
     WINDOW 2,,,0,1
     CLS
     PALETTE 0,0.26,0.1,0   'rot
     FOR i=1 TO 8
     PALETTE i,i/40,i/16,0
     NEXT i
     FOR i=1 TO 12
     LINE (i+2,7+i)-(530-i,46-i),i-1,b     'TITEL
     LINE (i+532,7+i)-(630-i,46-i),i-1,b   'ende
     LINE (i+2,47+i)-(216-i,86-i),i-1,b    'STROM
     LINE (i+2,87+i)-(216-i,126-i),i-1,b   'SPANNUNG
     LINE (i+217,47+i)-(416-i,86-i),i-1,b  'RG*R1+R2
     LINE (i+217,87+i)-(416-i,126-i),i-1,b 'STROM a WIDER
     LINE (i+417,47+i)-(630-i,86-i),i-1,b  'RG
     LINE (i+417,87+i)-(630-i,126-i),i-1,b '??
     LINE (i+2,125+i)-(630-i,258-i),i-1,b  'AUSGABEWINDOW
     NEXT i
     COLOR 9,0
     LOCATE 4,6 :PRINT " GEMISCHTESCHALTUNG VON WIDERSTÄNDEN UND IHRE BERECHNUNG"
     LOCATE 4,72:PRINT "ENDE"
     COLOR 12,0
     LOCATE 9,11:PRINT  "1.STROM"
     LOCATE 14,11:PRINT "2.STROM"
     LOCATE 9,36:PRINT  "1.SPANNUNG"
     LOCATE 14,36:PRINT "2.SPANNUNG"
     LOCATE 14,57:PRINT "2.GESAMTWIDERSTAND"
     LOCATE 9,57:PRINT  "1.GESAMTWIDERSTAND"
 anfang:
     ON MOUSE GOSUB mausdruck
     MOUSE ON
     WHILE 1 : WEND
 mausdruck:
     druck=MOUSE(0)
     x=MOUSE(3) : y=MOUSE(4)     
   IF x>35 AND x<203 AND y>60 AND y<73   THEN GOSUB stro
   IF x>35 AND x<203 AND y>100 AND y<113 THEN GOSUB stromwi
   IF x>225 AND x<403 AND y>60 AND y<73 THEN GOSUB span
   IF x>225 AND x<403 AND y>100 AND y<113 THEN GOSUB spanwi
   IF x>425 AND x<620 AND y>100 AND y<113 THEN GOSUB gesamtb
   IF x>425 AND x<620 AND y>60 AND y<73 THEN GOSUB gesamta
   IF x>545 AND x<620 AND y>20 AND y<33  THEN GOSUB ende
   GOTO anfang
stro:
   SOUND 330,5,100
   WINDOW 3,,(20,140)-(611,235),0,1
   CLS:TIMER OFF
   COLOR 8,0
   CIRCLE(25,95),4,1
   LINE (25,37)-(25,93),1
   LINE (25,37)-(80,37),1
   LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
   LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
   LINE (80,25)-(270,50),9,b  :LOCATE 5,20:PRINT "R1"
   LINE (320,5)-(510,30),9,b  :LOCATE 3,50:PRINT "R2"
   LINE (320,45)-(510,70),9,b :LOCATE 8,50:PRINT "R3"
   LINE (511,17)-(565,17),1
   LINE (511,58)-(565,58),1
   LINE (565,17)-(565,93),1
   CIRCLE(565,95),4,1
   ON TIMER (3) GOSUB st
   TIMER ON
   WHILE 3:SLEEP:WEND
st:
   CLS
   TIMER OFF
   COLOR 10,0
   LOCATE 2,8
   INPUT " WIDERSTAND R1:   ";wl
   LOCATE 4,8  
   INPUT " WIDERSTAND R2:   ";w
   LOCATE 6,8
   INPUT " WIDERSTAND R3:   ";ww
   LOCATE 8,8
   INPUT "GESAMTSPANNUNG:   ";sp
   CLS
   rg=wl+(w*ww)/(w+ww) :stg=sp/rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl 
   COLOR 14,0 :LOCATE 2,8:PRINT "GESAMTSTROM       =":LOCATE 2,41:PRINT "AMPER"
   LOCATE 2,30:PRINT USING "#####.###"; sp/rg
   COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND  =":LOCATE 4,41:PRINT "OHM"
   LOCATE 4,30:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
   COLOR 14,0 :LOCATE 6,8:PRINT "TEILSTROM am R1   =":LOCATE 6,41:PRINT "AMPER"
   LOCATE 6,30:PRINT USING "#####.###"; spr/w
   COLOR 14,0 :LOCATE 8,8:PRINT "TEILSTROM am R2   =":LOCATE 8,41:PRINT "AMPER"
   LOCATE 8,30:PRINT USING "#####.###"; spr/ww 
   ON TIMER (4) GOSUB strom
   TIMER ON
   WHILE 4:SLEEP:WEND
strom:
   SOUND 440,5,100:SOUND 220,5,80
   CLS:TIMER OFF
   COLOR 8,0
   CIRCLE(25,95),4,1
   LINE (25,37)-(25,93),1
   LINE (25,37)-(80,37),1
   LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
   LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
   LINE (80,25)-(270,50),9,b  'R1
   LINE (320,5)-(510,30),9,b   'R2
   LINE (320,45)-(510,70),9,b  'R3
   LINE (511,17)-(565,17),1
   LINE (511,58)-(565,58),1
   LINE (565,17)-(565,93),1
   CIRCLE(565,95),4,1
   rg=wl+(w*ww)/(w+ww) :stg=sp/rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl 
   COLOR 15,0 :LOCATE 2,42:PRINT "I1 =":LOCATE 2,60:PRINT "AMP"
   LOCATE 2,50:PRINT USING "#####.###"; spr/w
   COLOR 15,0 :LOCATE 7,42:PRINT "I2 =":LOCATE 7,60:PRINT "AMP"
   LOCATE 7,50:PRINT USING "#####.###"; spr/ww 
   COLOR 15,0 :LOCATE 12,6:PRINT "IG =":LOCATE 12,21:PRINT "AMPER"
   LOCATE 12,11:PRINT USING "#####.###"; sp/rg
   COLOR 9,0 :LOCATE 12,48:PRINT "RG =":LOCATE 12,66:PRINT "OHM"
   LOCATE 12,55:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
   COLOR 9,0 :LOCATE 5,12:PRINT "R1 =":LOCATE 5,30:PRINT "OHM"
   LOCATE 5,17:PRINT USING "#####.##";wl
   COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
   LOCATE 3,50:PRINT USING "#####.##";w
   COLOR 9,0 :LOCATE 8,42:PRINT "R3 =":LOCATE 8,60:PRINT "OHM"
   LOCATE 8,50:PRINT USING "#####.##";ww
   COLOR 6,0 :LOCATE 5,40:PRINT "RG2+3 =":LOCATE 5,60:PRINT "OHM"
   LOCATE 5,50:PRINT USING "#####.##";(w*ww)/(w+ww)
   COLOR 12,0 :LOCATE 12,27:PRINT "SPG =":LOCATE 12,42:PRINT "VOLT"
   LOCATE 12,32: PRINT USING "#####.###";sp
   COLOR 12,0 :LOCATE 8,13:PRINT "SPI=":LOCATE 8,26 :PRINT "VOLT"
   LOCATE 8,17: PRINT USING "#####.##"; spl
   COLOR 12,0 :LOCATE 10,42:PRINT "SPII=":LOCATE 10,60 :PRINT "VOLT"
   LOCATE 10,50: PRINT USING "#####.##"; spr
   GOTO anfang
   RETURN
span:
   SOUND 330,5,100
   WINDOW 3,,(20,140)-(611,235),0,1
   CLS:TIMER OFF
   COLOR 8,0
   CIRCLE(25,95),4,1
   LINE (25,37)-(25,93),1
   LINE (25,37)-(80,37),1
   LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
   LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
   LINE (80,25)-(270,50),9,b  :LOCATE 5,20:PRINT "R1"
   LINE (320,5)-(510,30),9,b  :LOCATE 3,50:PRINT "R2"
   LINE (320,45)-(510,70),9,b :LOCATE 8,50:PRINT "R3"
   LINE (511,17)-(565,17),1
   LINE (511,58)-(565,58),1
   LINE (565,17)-(565,93),1
   CIRCLE(565,95),4,1
   ON TIMER (3) GOSUB sa
   TIMER ON
   WHILE 3:SLEEP:WEND
sa:
   CLS:TIMER OFF
   COLOR 10,0
   LOCATE 2,8
   INPUT " WIDERSTAND R1:   ";wl
   LOCATE 4,8  
   INPUT " WIDERSTAND R2:   ";w
   LOCATE 6,8
   INPUT " WIDERSTAND R3:   ";ww
   LOCATE 8,8
   INPUT "GESAMTSTROM:      ";stg
   CLS
   rg=wl+(w*ww)/(w+ww) :sp=stg*rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl
   COLOR 14,0 :LOCATE 2,8:PRINT "GESAMTSPANNUNG    =":LOCATE 2,41:PRINT "VOLT"
   LOCATE 2,30:PRINT USING "#####.###"; stg*rg
   COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND  =":LOCATE 4,41:PRINT "OHM"
   LOCATE 4,30:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
   COLOR 14,0 :LOCATE 6,8:PRINT "TEILSTROM am R1   =":LOCATE 6,41:PRINT "AMPER"
   LOCATE 6,30:PRINT USING "#####.###"; spr/w
   COLOR 14,0 :LOCATE 8,8:PRINT "TEILSTROM am R2   =":LOCATE 8,41:PRINT "AMPER"
   LOCATE 8,30:PRINT USING "#####.###"; spr/ww
   COLOR 14,0 :LOCATE 10,8:PRINT "GESAMTSTROM       =":LOCATE 10,41:PRINT "AMPER"
   LOCATE 10,30:PRINT USING "#####.###"; sp/rg
   ON TIMER (4) GOSUB spannung
   TIMER ON
   WHILE 4:SLEEP:WEND
spannung:
   SOUND 440,5,100:SOUND 220,5,80
   CLS:TIMER OFF
   COLOR 8,0
   CIRCLE(25,95),4,1
   LINE (25,37)-(25,93),1
   LINE (25,37)-(80,37),1
   LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
   LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
   LINE (80,25)-(270,50),9,b  'R1
   LINE (320,5)-(510,30),9,b   'R2
   LINE (320,45)-(510,70),9,b  'R3
   LINE (511,17)-(565,17),1
   LINE (511,58)-(565,58),1
   LINE (565,17)-(565,93),1
   CIRCLE(565,95),4,1
   rg=wl+(w*ww)/(w+ww) :stg=sp/rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl 
   COLOR 15,0 :LOCATE 2,42:PRINT "I1 =":LOCATE 2,60:PRINT "AMP"
   LOCATE 2,50:PRINT USING "#####.###"; spr/w
   COLOR 15,0 :LOCATE 7,42:PRINT "I2 =":LOCATE 7,60:PRINT "AMP"
   LOCATE 7,50:PRINT USING "#####.###"; spr/ww 
   COLOR 15,0 :LOCATE 12,6:PRINT "IG =":LOCATE 12,21:PRINT "AMPER"
   LOCATE 12,11:PRINT USING "#####.###"; sp/rg
   COLOR 9,0 :LOCATE 12,48:PRINT "RG =":LOCATE 12,66:PRINT "OHM"
   LOCATE 12,55:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
   COLOR 9,0 :LOCATE 5,12:PRINT "R1 =":LOCATE 5,30:PRINT "OHM"
   LOCATE 5,17:PRINT USING "#####.##";wl
   COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
   LOCATE 3,50:PRINT USING "#####.##";w
   COLOR 9,0 :LOCATE 8,42:PRINT "R3 =":LOCATE 8,60:PRINT "OHM"
   LOCATE 8,50:PRINT USING "#####.##";ww
   COLOR 6,0 :LOCATE 5,40:PRINT "RG2+3 =":LOCATE 5,60:PRINT "OHM"
   LOCATE 5,50:PRINT USING "#####.##";(w*ww)/(w+ww)
   COLOR 12,0 :LOCATE 12,27:PRINT "SPG =":LOCATE 12,42:PRINT "VOLT"
   LOCATE 12,32: PRINT USING "#####.###";sp
   COLOR 12,0 :LOCATE 8,13:PRINT "SPI=":LOCATE 8,26 :PRINT "VOLT"
   LOCATE 8,17: PRINT USING "#####.##"; spl
   COLOR 12,0 :LOCATE 10,42:PRINT "SPII=":LOCATE 10,60 :PRINT "VOLT"
   LOCATE 10,50: PRINT USING "#####.##"; spr
   GOTO anfang
   RETURN
gesamta: 
   SOUND 330,5,100
   WINDOW 3,,(20,140)-(611,235),0,1
   CLS:TIMER OFF
   COLOR 8,0
   CIRCLE(25,95),4,1
   LINE (25,37)-(25,93),1
   LINE (25,37)-(80,37),1
   LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
   LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
   LINE (80,25)-(270,50),9,b  :LOCATE 5,20:PRINT "R1"
   LINE (320,5)-(510,30),9,b  :LOCATE 3,50:PRINT "R2"
   LINE (320,45)-(510,70),9,b :LOCATE 8,50:PRINT "R3"
   LINE (511,17)-(565,17),1
   LINE (511,58)-(565,58),1
   LINE (565,17)-(565,93),1
   CIRCLE(565,95),4,1
   ON TIMER (3) GOSUB wi
   TIMER ON
   WHILE 3:SLEEP:WEND
wi:
   CLS:TIMER OFF
   COLOR 10,0
   LOCATE 2,8
   INPUT " WIDERSTAND R1:   ";wl
   LOCATE 4,8  
   INPUT " WIDERSTAND R2:   ";w
   LOCATE 6,8
   INPUT " WIDERSTAND R3:   ";ww
   CLS
   rg=wl+(w*ww)/(w+ww) :sp=stg*rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl
   COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND  =":LOCATE 4,41:PRINT "OHM"
   LOCATE 4,30:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
   ON TIMER (4) GOSUB wid
   TIMER ON
   WHILE 4:SLEEP:WEND
wid:
   SOUND 440,5,100:SOUND 220,5,80
   CLS:TIMER OFF
   COLOR 8,0
   CIRCLE(25,95),4,1
   LINE (25,37)-(25,93),1
   LINE (25,37)-(80,37),1
   LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
   LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
   LINE (80,25)-(270,50),9,b  'R1
   LINE (320,5)-(510,30),9,b   'R2
   LINE (320,45)-(510,70),9,b  'R3
   LINE (511,17)-(565,17),1
   LINE (511,58)-(565,58),1
   LINE (565,17)-(565,93),1
   CIRCLE(565,95),4,1
   rg=wl+(w*ww)/(w+ww) 
   COLOR 12,0 :LOCATE 12,28:PRINT "RG =":LOCATE 12,46:PRINT "OHM"
   LOCATE 12,35:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
   COLOR 9,0 :LOCATE 5,12:PRINT "R1 =":LOCATE 5,30:PRINT "OHM"
   LOCATE 5,17:PRINT USING "#####.##";wl
   COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
   LOCATE 3,50:PRINT USING "#####.##";w
   COLOR 9,0 :LOCATE 8,42:PRINT "R3 =":LOCATE 8,60:PRINT "OHM"
   LOCATE 8,50:PRINT USING "#####.##";ww
   COLOR 6,0 :LOCATE 5,40:PRINT "RG2+3 =":LOCATE 5,60:PRINT "OHM"
   LOCATE 5,50:PRINT USING "#####.##";(w*ww)/(w+ww)
   GOTO anfang
   RETURN

 '------------ENDE 1-----------------------------------------     
     
stromwi:
   SOUND 330,5,100
   WINDOW 3,,(20,140)-(611,235),0,1
   CLS:TIMER OFF 
   COLOR 8,0
   CIRCLE(25,95),4,2
   LINE (25,17)-(25,93),1
   LINE (25,17)-(80,17),1
   LINE(271,17)-(320,17),1
   LINE (80,5)-(270,30),9,b   :LOCATE 3,22:PRINT "R 1"
   LINE (320,5)-(510,30),9,b  :LOCATE 3,51:PRINT "R 2"
   LINE (200,45)-(390,70),9,b :LOCATE 8,36:PRINT "R 3"
   LINE (511,17)-(565,17),1
   LINE (391,58)-(565,58),1
   LINE (25,58)-(199,58),1
   LINE (565,17)-(565,93),1
   CIRCLE(565,95),4,2
   ON TIMER (3) GOSUB ss
   TIMER ON
   WHILE 3:SLEEP:WEND
ss:
   CLS:TIMER OFF
   COLOR 10,0
   LOCATE 2,8
   INPUT " WIDERSTAND R1:   ";wa
   LOCATE 4,8  
   INPUT " WIDERSTAND R2:   ";wb
   LOCATE 6,8
   INPUT " WIDERSTAND R3:   ";w
   LOCATE 8,8
   INPUT "GESAMTSTROM:      ";stg
   CLS
   rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
   COLOR 14,0 :LOCATE 2,8:PRINT "GESAMTSPANNUNG    =":LOCATE 2,41:PRINT "VOLT"
   LOCATE 2,30:PRINT USING "#####.###"; stg*rg
   COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND  =":LOCATE 4,41:PRINT "OHM"
   LOCATE 4,30:PRINT USING "#####.###"; rg
   COLOR 14,0 :LOCATE 6,8:PRINT "TEILSTROM am R1+R2=":LOCATE 6,41:PRINT "AMPER"
   LOCATE 6,30:PRINT USING "#####.###"; sp/(wa+wb)
   COLOR 14,0 :LOCATE 8,8:PRINT "TEILSTROM am R3   =":LOCATE 8,41:PRINT "AMPER"
   LOCATE 8,30:PRINT USING "#####.###"; sp/w
   COLOR 14,0 :LOCATE 10,8:PRINT "GESAMTSTROM       =":LOCATE 10,41:PRINT "AMPER"
   LOCATE 10,30:PRINT USING "#####.###"; sp/rg
   ON TIMER (4) GOSUB stwid
   TIMER ON
   WHILE 4:SLEEP:WEND
stwid:
   SOUND 440,5,100:SOUND 220,5,80
   CLS:TIMER OFF
   COLOR 8,0
   CIRCLE(25,95),4,2
   LINE (25,17)-(25,93),1
   LINE (25,17)-(80,17),1
   LINE(271,17)-(320,17),1
   LINE (80,5)-(270,30),9,b   
   LINE (320,5)-(510,30),9,b  
   LINE (200,45)-(390,70),9,b 
   LINE (511,17)-(565,17),1
   LINE (391,58)-(565,58),1
   LINE (25,58)-(199,58),1
   LINE (565,17)-(565,93),1
   CIRCLE(565,95),4,2
    rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
   COLOR 15,0 :LOCATE 5,10:PRINT "I1+2 =":LOCATE 5,30:PRINT "AMP"
   LOCATE 5,17:PRINT USING "#####.###"; sp/rgo
   COLOR 15,0 :LOCATE 7,29:PRINT "I2 =":LOCATE 7,40:PRINT "AMP"
   LOCATE 7,35:PRINT USING "#####.###"; sp/w 
   COLOR 15,0 :LOCATE 12,6:PRINT "IG =":LOCATE 12,21:PRINT "AMPER"
   LOCATE 12,11:PRINT USING "#####.###"; sp/rg
   COLOR 9,0 :LOCATE 12,48:PRINT "RG =":LOCATE 12,66:PRINT "OHM"
   LOCATE 12,55:PRINT USING "#####.###";rg
   COLOR 9,0 :LOCATE 3,12:PRINT "R1 =":LOCATE 3,30:PRINT "OHM"
   LOCATE 3,17:PRINT USING "#####.##";wa
   COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
   LOCATE 3,50:PRINT USING "#####.##";wb
   COLOR 9,0 :LOCATE 8,29:PRINT "R3 =":LOCATE 8,40:PRINT "OHM"
   LOCATE 8,35:PRINT USING "#####.##";w
   COLOR 6,0 :LOCATE 5,42:PRINT "RG1+2 =":LOCATE 5,60:PRINT "OHM"
   LOCATE 5,49:PRINT USING "######.##";wa+wb
   COLOR 12,0 :LOCATE 12,27:PRINT "SPG =":LOCATE 12,42:PRINT "VOLT"
   LOCATE 12,32: PRINT USING "#####.###";sp
   GOTO anfang
   RETURN
  '////////////////////////////////////////////////////////
spanwi:
   SOUND 330,5,100
   WINDOW 3,,(20,140)-(611,235),0,1
   CLS:TIMER OFF 
   COLOR 8,0
   CIRCLE(25,95),4,2
   LINE (25,17)-(25,93),1
   LINE (25,17)-(80,17),1
   LINE(271,17)-(320,17),1
   LINE (80,5)-(270,30),9,b   :LOCATE 3,22:PRINT "R 1"
   LINE (320,5)-(510,30),9,b  :LOCATE 3,51:PRINT "R 2"
   LINE (200,45)-(390,70),9,b :LOCATE 8,36:PRINT "R 3"
   LINE (511,17)-(565,17),1
   LINE (391,58)-(565,58),1
   LINE (25,58)-(199,58),1
   LINE (565,17)-(565,93),1
   CIRCLE(565,95),4,2
   ON TIMER (3) GOSUB sss
   TIMER ON
   WHILE 3:SLEEP:WEND
sss:
   CLS:TIMER OFF
   COLOR 10,0
   LOCATE 2,8
   INPUT " WIDERSTAND R1:   ";wa
   LOCATE 4,8  
   INPUT " WIDERSTAND R2:   ";wb
   LOCATE 6,8
   INPUT " WIDERSTAND R3:   ";w
   LOCATE 8,8
   INPUT "GESAMTSPANNUNG:   ";sp
   CLS
   rgo= wa+wb :rg= (rgo*w)/(rgo+w): stg= sp/rg
   COLOR 14,0 :LOCATE 2,8:PRINT "GESAMTSTROM       =":LOCATE 2,41:PRINT "AMPER"
   LOCATE 2,30:PRINT USING "#####.###"; sp/rg
   COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND  =":LOCATE 4,41:PRINT "OHM"
   LOCATE 4,30:PRINT USING "#####.###"; rg
   COLOR 14,0 :LOCATE 6,8:PRINT "TEILSTROM am R1+R2=":LOCATE 6,41:PRINT "AMPER"
   LOCATE 6,30:PRINT USING "#####.###"; sp/(wa+wb)
   COLOR 14,0 :LOCATE 8,8:PRINT "TEILSTROM am R3   =":LOCATE 8,41:PRINT "AMPER"
   LOCATE 8,30:PRINT USING "#####.###"; sp/w
   COLOR 14,0 :LOCATE 10,8:PRINT "GESAMTSPANNUNG    =":LOCATE 10,41:PRINT "VOLT"
   LOCATE 10,30:PRINT USING "#####.###"; sp
   ON TIMER (4) GOSUB swid
   TIMER ON
   WHILE 4:SLEEP:WEND
swid:
   SOUND 440,5,100:SOUND 220,5,80
   CLS:TIMER OFF
   COLOR 8,0
   CIRCLE(25,95),4,2
   LINE (25,17)-(25,93),1
   LINE (25,17)-(80,17),1
   LINE(271,17)-(320,17),1
   LINE (80,5)-(270,30),9,b   
   LINE (320,5)-(510,30),9,b  
   LINE (200,45)-(390,70),9,b 
   LINE (511,17)-(565,17),1
   LINE (391,58)-(565,58),1
   LINE (25,58)-(199,58),1
   LINE (565,17)-(565,93),1
   CIRCLE(565,95),4,2
    rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
   COLOR 15,0 :LOCATE 5,10:PRINT "I1+2 =":LOCATE 5,30:PRINT "AMP"
   LOCATE 5,17:PRINT USING "#####.###"; sp/rgo
   COLOR 15,0 :LOCATE 7,29:PRINT "I2 =":LOCATE 7,40:PRINT "AMP"
   LOCATE 7,35:PRINT USING "#####.###"; sp/w 
   COLOR 15,0 :LOCATE 12,6:PRINT "IG =":LOCATE 12,21:PRINT "AMPER"
   LOCATE 12,11:PRINT USING "#####.###"; sp/rg
   COLOR 9,0 :LOCATE 12,48:PRINT "RG =":LOCATE 12,66:PRINT "OHM"
   LOCATE 12,55:PRINT USING "#####.###";rg
   COLOR 9,0 :LOCATE 3,12:PRINT "R1 =":LOCATE 3,30:PRINT "OHM"
   LOCATE 3,17:PRINT USING "#####.##";wa
   COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
   LOCATE 3,50:PRINT USING "#####.##";wb
   COLOR 9,0 :LOCATE 8,29:PRINT "R3 =":LOCATE 8,40:PRINT "OHM"
   LOCATE 8,35:PRINT USING "#####.##";w
   COLOR 6,0 :LOCATE 5,42:PRINT "RG1+2 =":LOCATE 5,60:PRINT "OHM"
   LOCATE 5,49:PRINT USING "######.##";wa+wb
   COLOR 12,0 :LOCATE 12,27:PRINT "SPG =":LOCATE 12,42:PRINT "VOLT"
   LOCATE 12,32: PRINT USING "#####.###";sp
   GOTO anfang
   RETURN
gesamtb:
   SOUND 330,5,100
   WINDOW 3,,(20,140)-(611,235),0,1
   CLS:TIMER OFF 
   COLOR 8,0
   CIRCLE(25,95),4,2
   LINE (25,17)-(25,93),1
   LINE (25,17)-(80,17),1
   LINE(271,17)-(320,17),1
   LINE (80,5)-(270,30),9,b   :LOCATE 3,22:PRINT "R 1"
   LINE (320,5)-(510,30),9,b  :LOCATE 3,51:PRINT "R 2"
   LINE (200,45)-(390,70),9,b :LOCATE 8,36:PRINT "R 3"
   LINE (511,17)-(565,17),1
   LINE (391,58)-(565,58),1
   LINE (25,58)-(199,58),1
   LINE (565,17)-(565,93),1
   CIRCLE(565,95),4,2
   ON TIMER (3) GOSUB ssw
   TIMER ON
   WHILE 3:SLEEP:WEND
ssw:
   CLS:TIMER OFF
   COLOR 10,0
   LOCATE 2,8
   INPUT " WIDERSTAND R1:   ";wa
   LOCATE 4,8  
   INPUT " WIDERSTAND R2:   ";wb
   LOCATE 6,8
   INPUT " WIDERSTAND R3:   ";w
   CLS
   rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
   COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND  =":LOCATE 4,41:PRINT "OHM"
   LOCATE 4,30:PRINT USING "#####.###"; rg
   ON TIMER (4) GOSUB wider
   TIMER ON
   WHILE 4:SLEEP:WEND
wider:
   SOUND 440,5,100:SOUND 220,5,80
   CLS:TIMER OFF
   COLOR 8,0
   CIRCLE(25,95),4,2
   LINE (25,17)-(25,93),1
   LINE (25,17)-(80,17),1
   LINE(271,17)-(320,17),1
   LINE (80,5)-(270,30),9,b   
   LINE (320,5)-(510,30),9,b  
   LINE (200,45)-(390,70),9,b 
   LINE (511,17)-(565,17),1
   LINE (391,58)-(565,58),1
   LINE (25,58)-(199,58),1
   LINE (565,17)-(565,93),1
   CIRCLE(565,95),4,2
    rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
   COLOR 12,0 :LOCATE 12,27:PRINT "RG =":LOCATE 12,42:PRINT "OHM"
   LOCATE 12,32:PRINT USING "#####.###";rg
   COLOR 9,0 :LOCATE 3,12:PRINT "R1 =":LOCATE 3,30:PRINT "OHM"
   LOCATE 3,17:PRINT USING "#####.##";wa
   COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
   LOCATE 3,50:PRINT USING "#####.##";wb
   COLOR 9,0 :LOCATE 8,29:PRINT "R3 =":LOCATE 8,40:PRINT "OHM"
   LOCATE 8,35:PRINT USING "#####.##";w
   COLOR 7,0 :LOCATE 5,24:PRINT "RG1+2 =":LOCATE 5,42:PRINT "OHM"
   LOCATE 5,32:PRINT USING "######.##";wa+wb
   GOTO anfang
   RETURN
ende:
WINDOW CLOSE 2
SCREEN CLOSE 1
 END
GOTO mausdruck